home *** CD-ROM | disk | FTP | other *** search
/ Micro Dingo Especial Manga 1 / Micro Dingo Especial Manga 01 CD.iso / cd dingo / dingosexo / hentai / juegos / 06.swf / scripts / frame_85 / DoAction.as
Text File  |  2003-01-22  |  951b  |  29 lines
  1. call("inicializa_matriz");
  2. call("calcula_matriz");
  3. contador = "1";
  4. while(contador < "16")
  5. {
  6.    ficha = "ficha" add contador;
  7.    objeto = "/" add contador;
  8.    xnombre = "/" add contador add ":xactual";
  9.    ynombre = "/" add contador add ":yactual";
  10.    xnombref = "/" add contador add ":xfinal";
  11.    ynombref = "/" add contador add ":yfinal";
  12.    set(xnombre,int((eval(ficha) - "1") / "4"));
  13.    set(ynombre,eval(ficha) - eval(xnombre) * "4");
  14.    set(xnombref,int((contador - "1") / "4"));
  15.    set(ynombref,contador - eval(xnombref) * "4");
  16.    set(xnombref,eval(xnombref) + "1");
  17.    set(xnombre,eval(xnombre) + "1");
  18.    xpos = "200" + (eval(xnombre) - "1") * "63";
  19.    ypos = "88" + (eval(ynombre) - "1") * "63";
  20.    setProperty(objeto, _X, xpos);
  21.    setProperty(objeto, _Y, ypos);
  22.    contador += "1";
  23. }
  24. call("calcula_libre");
  25. xlibre = int((casilla_libre - "1") / "4");
  26. ylibre = casilla_libre - xlibre * "4";
  27. xlibre += "1";
  28. stop();
  29.